#!/usr/bin/perl -w

$machine=$ARGV[0];
select(undef,undef,undef,25);
unlink("$::ENV{TRUECL_CFG}/vm/tmp-$machine");
exit(0);

